home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / vira.rdc < prev    next >
Text File  |  1989-04-28  |  548b  |  18 lines
  1. ; VIRA - a different MICE
  2. ; Maz Spork
  3.  
  4. length    EQU    last-start    ; L{ngden af VIRA
  5. offset    EQU    654        ; afstand mellem kopier
  6. faraway    EQU    180        ; afstand til 1ste kopi
  7. ;
  8. source    DAT    #0        ; Mark|r til eget program
  9. start    MOV    #length, source ; S{t til l{ngden af programmet
  10. loop    MOV    @source, <dest    ; Flyt en v{rdi til det ny program
  11.     DJN    loop, source    ; Indtil det hele er kopieret
  12.     SPL    @dest        ; Split til kopien
  13.     ADD    #offset, dest    ; Ny destination for en kopi
  14.     JMP    start        ; Hop til begyndelsen
  15. dest    DAT    #faraway    ; Mark|r til kopien
  16. ;
  17. last    END
  18.